-- background: 2747 from stack: in.0
-- bmap block id: 3528
-- flags: 4000
-- background id: 0
-- name: COVER
----- HyperTalk script -----
on opencard
  hide menubar
  hide card field "Time"
  hide message box
  set userlevel to 5
end opencard



-- part 2 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=287 right=321 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 13279 / 13279
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Next
----- HyperTalk script -----
on mouseup
  repeat with n = 1 to 14
    set icon of me to "Hme." & n
    wait 3 ticks
  end repeat
  repeat 10
    wait 2 ticks
    set icon of me to "Hme.15"
    wait 2 ticks
    set icon of me to "Hme.16"
    if the mouse = "Down" then
      repeat 2
        set icon of me to "Hme.15"
        wait 3 ticks
        set icon of me to "Hme.16"
        wait 2 ticks
      end repeat
      exit repeat
    end if
  end repeat
  set icon of me to "Hme.1"
  visual effect Iris Close Slowly to Black
  set userlevel to 5
  play "This town.."
  go home
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=458 top=118 right=157 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
  visual effect checkerboard slow
  go to card id 4002
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=458 top=177 right=216 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about
----- HyperTalk script -----
on mouseUp
  visual effect barn door open slow
  go next
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=63 right=102 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
  ask "Find what date?"
  put 5 into lag
  put "1,2,3,4" into seq
  repeat with n = 1 to the number of items in seq
    set cursor to "HGls." & item n of seq
    wait 10
  end repeat
  go card id 3127
  put 5 into lag
  put "1,2,3,4" into seq
  repeat with n = 1 to the number of items in seq
    set cursor to "HGls." & item n of seq
    wait 10
  end repeat
  find it in background field ID 14
end mouseDown